home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A)[a].po / PLOADER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  431b  |  2 lines
  1. 1  DATA 24,251,139,194,48,162,0,32,160,0,128,169,255,31,84,225,0,171,56,251,96,0,12288,0,48,0,32,3000,12288,0,48,0,80,6000,8191,255,31,0,128: FOR I = 768 TO 768 +20: READ A: POKE I,A: NEXT : HOME : INPUT "File name?";A$: POKE 49193,97: FOR I = 1 TO 3
  2. 2  READ B$,B: PRINT  CHR$(4)"BLOAD"A$",A$2000,B$"B$",L"B",T$C1": READ A,B,C,D: POKE 780,A: POKE 781,B: POKE 777,C: POKE 778,D: CALL 768: NEXT : POKE 49193,129: GET A$: POKE 49193,1